home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / recipe.sit / Recipe Box / card_4404.txt < prev    next >
Encoding:
Text File  |  1988-08-19  |  3.8 KB  |  147 lines
  1. -- card: 4404 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2830
  5. -- name: Appetizers
  6.  
  7.  
  8. -- part 6 (field)
  9. -- low flags: 81
  10. -- high flags: 2004
  11. -- rect: left=130 top=133 right=252 bottom=383
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   set visible of Card Field 1 to not the visible of Card Field 1
  23. end mouseUp
  24.  
  25.  
  26. -- part 7 (field)
  27. -- low flags: 81
  28. -- high flags: 2004
  29. -- rect: left=167 top=118 right=246 bottom=358
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 0
  33. -- font id: 3
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: Pop up
  38. ----- HyperTalk script -----
  39. on mouseUp
  40.   hide card field "pop up"
  41. end mouseUp
  42.  
  43.  
  44. -- part 48 (button)
  45. -- low flags: 00
  46. -- high flags: 8002
  47. -- rect: left=200 top=100 right=18 bottom=335
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 8192
  54. -- line height: 16
  55. -- part name: Pumpkin Pie
  56. ----- HyperTalk script -----
  57. on mouseUp
  58.   hide message
  59.   put newRecipe("card id 7041") into dummy
  60.   go to card id 7041
  61. end mouseUp
  62.  
  63.  
  64. -- part 77 (button)
  65. -- low flags: 00
  66. -- high flags: 8003
  67. -- rect: left=164 top=291 right=333 bottom=209
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: New
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   set lockScreen to True
  79.   put the id of this card into index
  80.   go to card "master recipe"
  81.   domenu "Copy Card"
  82.   closeCard
  83.   go to index
  84.   domenu "Paste Card"
  85.   set the script of this card to empty
  86.   ask "What is name of new recipe?"
  87.   if it is empty then
  88.     set lockScreen to True
  89.     domenu "Delete Card"
  90.     go to index
  91.   else
  92.     put it into newName
  93.     put newName into field 1
  94.     set lockScreen to False
  95.     set the name of this card to newName
  96.     put the id of this card into temp
  97.     set lockScreen to True
  98.     go to index
  99.     doMenu "New Button"
  100.     set rect of button "New Button" to 200,100,335,115
  101.     set textStyle of button "New Button" to plain
  102.     set textStyle of button "New Button" to condense
  103.     set textSize of button "New Button" to 12
  104.     set textStyle of button "New Button" to underline
  105.     set textFont of button "New Button" to Geneva
  106.     set textAlign of button "New Button" to left
  107.     set showName of button "New Button" to true
  108.     set the style of button "New Button" to transparent
  109.     set name of button "New Button" to newName
  110.     put "on mouseUp" into line 1 of newScript
  111.     put "hide message" into line 2 of newScript
  112.     put "put newRecipe("& quote & temp & quote & ") into dummy" into line 3 of newScript
  113.     put "go to" && temp into line 4 of newScript
  114.     put "end mouseUp" into line 5 of newScript
  115.     set script of button newName to newScript
  116.     set the loc of message to 15,300
  117.     put "Drag the button to the desired location and type Command-Tab"
  118.     set lockScreen to False
  119.   end if
  120. end Mouseup
  121.  
  122.  
  123.  
  124. -- part contents for background part 1
  125. ----- text -----
  126. Appetizers
  127.  
  128. -- part contents for background part 2
  129. ----- text -----
  130. 2
  131.  
  132. -- part contents for background part 6
  133. ----- text -----
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140. -- part contents for card part 6
  141. ----- text -----
  142. Use the main field for article title and keywords to search on.  Put the  number you assign on both the actual article and in the Number Series field, and file the actual article by number. 
  143.  
  144. -- part contents for card part 7
  145. ----- text -----
  146. To make your own filing stack, choose New Stack from the File menu.  In that stack, this button will sort your cards.  (Sorting Stack Ideas is not a good idea.)
  147.